home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / Bible.cpt / Hyper Sword / card_4997.txt < prev    next >
Text File  |  1989-07-04  |  3KB  |  122 lines
  1. -- card: 4997 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2636
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0005
  11. -- rect: left=20 top=131 right=154 bottom=42
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: New Button
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   set the cursor to 4
  23.   global duplicate
  24.   add 1 to duplicate
  25.   global scoring
  26.   add 1 to scoring
  27.   put"" into background field id"21"
  28.   get loc of background field id"21"
  29.   choose browse tool
  30.   Play"Applause"
  31.   click at it
  32.   type"Correct - Keep up the Good Work."
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 2 (button)
  38. -- low flags: 00
  39. -- high flags: 0005
  40. -- rect: left=20 top=153 right=176 bottom=42
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: New Button
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   set the cursor to 4
  52.   global duplicate
  53.   add 1 to duplicate
  54.   put"" into background field id"21"
  55.   get loc of background field id"21"
  56.   choose browse tool
  57.   click at it
  58.   play"boing"
  59.   type"Sorry your answer is incorrect"
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part 3 (button)
  65. -- low flags: 00
  66. -- high flags: 0005
  67. -- rect: left=20 top=108 right=131 bottom=42
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: New Button
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   set the cursor to 4
  79.   global duplicate
  80.   add 1 to duplicate
  81.   put"" into background field id"21"
  82.   get loc of background field id"21"
  83.   choose browse tool
  84.   click at it
  85.   play"boing"
  86.   type"Sorry your answer is incorrect"
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part contents for background part 1
  92. ----- text -----
  93. The son of Ham (Noah's middle son) upon whom Noah pronounced judgement?
  94.  
  95. -- part contents for background part 13
  96. ----- text -----
  97. Canaan
  98.  
  99. -- part contents for background part 12
  100. ----- text -----
  101. Shem
  102.  
  103. -- part contents for background part 14
  104. ----- text -----
  105. Ham
  106.  
  107. -- part contents for background part 32
  108. ----- text -----
  109. The Creation Stage
  110.  
  111. -- part contents for background part 37
  112. ----- text -----
  113. 5
  114.  
  115. -- part contents for background part 43
  116. ----- text -----
  117. Genesis 9:25
  118.  
  119. -- part contents for background part 48
  120. ----- text -----
  121. Canaan is cursed because of the sin of his father Ham.
  122. God often visits the iniquity of the fathers upon the children, when the children inherit the fathers wicked dispositions, and imitate the fathers wicked practices, and do nothing to cut off the entail of the curse.